home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / bbs / twall62s.zip / config.mh < prev    next >
Text File  |  1996-07-15  |  2KB  |  63 lines
  1. char: showdate, userealname;
  2. string: wallwritebbs, bbsfile, tmpfile, textcolour, signcolour, writtenbycolour;
  3. string: reallywrittenby, realname, timedatecol, seperatebarcolour;
  4. string: highlcolour, defaultcolour, promptcolour, realnameaccess, noaliaslevel;
  5.  
  6. string confcol(string: lline)
  7. {
  8.    string: newline;
  9.    lline:=strupper(lline);
  10.    if(lline="BLACK") newline:=BLACK;
  11.    if(lline="BLUE") newline:=BLUE;
  12.    if(lline="GREEN") newline:=GREEN;
  13.    if(lline="CYAN") newline:=CYAN;
  14.    if(lline="RED") newline:=RED;
  15.    if(lline="MAGENTA") newline:=MAGENTA;
  16.    if(lline="BROWN") newline:=BROWN;
  17.    if(lline="GRAY") newline:=GRAY;
  18.    if(lline="GREY") newline:=GRAY;
  19.    if(lline="DKGRAY") newline:=DARKGRAY;
  20.    if(lline="DKGREY") newline:=DARKGRAY;
  21.    if(lline="LBLUE") newline:=LIGHTBLUE;
  22.    if(lline="LGREEN") newline:=LIGHTGREEN;
  23.    if(lline="LCYAN") newline:=LIGHTCYAN;
  24.    if(lline="LRED") newline:=LIGHTRED;
  25.    if(lline="LMAGENTA") newline:=LIGHTMAGENTA;
  26.    if(lline="YELLOW") newline:=YELLOW;
  27.    if(lline="WHITE") newline:=WHITE;
  28.    print(newline);
  29.    return newline;
  30. }
  31.  
  32. #define CONFIGLINES 17
  33.  
  34. void loadconfig(string: configfile)
  35. {
  36. int: linecount, cfgfile;
  37. array [1..CONFIGLINES] of string: cfgline;
  38.  
  39. //cfgfile:=open("thewall.cfg", IOPEN_READ);
  40. cfgfile:=open(configfile, IOPEN_READ);
  41. for (linecount:=1; linecount<=CONFIGLINES; linecount:=linecount+1) readln(cfgfile,cfgline[linecount]);
  42. wallwritebbs:=cfgline[1];
  43. bbsfile:=cfgline[2];
  44. tmpfile:=cfgline[3];
  45. if (strupper(cfgline[4])="TRUE") showdate:=TRUE;
  46.     else showdate:=FALSE;
  47. textcolour:=confcol(cfgline[5]);
  48. signcolour:=confcol(cfgline[6]);
  49. writtenbycolour:=confcol(cfgline[7]);
  50. reallywrittenby:=confcol(cfgline[8]);
  51. realname:=confcol(cfgline[9]);
  52. timedatecol:=confcol(cfgline[10]);
  53. seperatebarcolour:=confcol(cfgline[11]);
  54. highlcolour:=confcol(cfgline[12]);
  55. defaultcolour:=confcol(cfgline[13]);
  56. promptcolour:=confcol(cfgline[14]);
  57. realnameaccess:=cfgline[15];
  58. if (realnameaccess = "") realnameaccess:="sysop";
  59. noaliaslevel:=cfgline[16];
  60. if (strupper(cfgline[17])="ALIAS") userealname:=FALSE;
  61.     else userealname:=TRUE;
  62. }
  63.